home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / nasa / chart / chart.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-02  |  2.0 KB  |  91 lines
  1. 100  REM     CHART NUMBER PROGRAM
  2. 110  REM
  3. 120  PRINT
  4. 130  PRINT  "ENTER 2000.0 POSITION"
  5. 140  PRINT
  6. 150  INPUT  "R.A. HRS.";H
  7. 160  IF H<0 OR H>=24 THEN 150
  8. 170  INPUT "R.A. MIN.";M
  9. 180  IF M<0 OR M>=60 THEN 170
  10. 190  H=H+M/60
  11. 200  PRINT
  12. 210  INPUT "  + OR -  ";D$
  13. 220  IF LEN(D$)>1 THEN 210
  14. 230  INPUT "DEC. DEGREES";D
  15. 240  IF D<0 OR D>90 THEN 230
  16. 250  INPUT "DEC. MIN.   ";M
  17. 260  IF M<0 OR M>=60 THEN 250
  18. 270  D=D+M/60
  19. 280  IF D$="-" THEN D=-D
  20. 290  REM
  21. 300  REM
  22. 310  REM   SKY ATLAS 2000.0
  23. 320  REM
  24. 330  IF ABS(D)>=18.5 THEN 370
  25. 340  S=9+INT(H/3+1/1.2)
  26. 350  IF S=9 THEN S=17
  27. 360  GOTO 460
  28. 370  IF ABS(D)>=52 THEN 410
  29. 380  S=4+INT(H/4)
  30. 390  IF D<0 THEN S=S+14
  31. 400  GOTO 460
  32. 410  S=1+INT(H/8)
  33. 420  IF D<0 THEN S=S+23
  34. 430  REM
  35. 440  REM   URANOMETRIA 2000.0
  36. 450  REM
  37. 460  IF ABS(D)>=5.5 THEN 510
  38. 470  U=215+INT(H*1.875+.5)
  39. 480  IF U=260 THEN U=215
  40. 490  V$="VOLUME I & II"
  41. 500  GOTO 900
  42. 510  IF D>0 THEN V$="VOLUME I"
  43. 520  IF D<0 THEN V$="VOLUME II"
  44. 530  IF ABS(D)>=50 THEN 730
  45. 540  IF ABS(D)>=28 THEN 640
  46. 550  IF ABS(D)>=17 THEN 600
  47. 560  U=170+INT(H*1.875+.5):
  48. 570  IF U=215 THEN U=170
  49. 580  IF D<0 THEN U=U+90
  50. 590  GOTO 900
  51. 600  U=125+INT(H*1.875+.5)
  52. 610  IF U=170 THEN U=125
  53. 620  IF D>0 THEN U=U+180
  54. 630  GOTO 900
  55. 640  IF ABS(D)>=39 THEN 690
  56. 650  U=89+INT(H*1.5+.5)
  57. 660  IF U=125 THEN U=89
  58. 670  IF D<0 THEN U=U+261
  59. 680  GOTO 900
  60. 690  U=59+INT(H/.8+.5)
  61. 700  IF U=89 THEN U=59
  62. 710  IF D<0 THEN U=U+237
  63. 720  GOTO 900
  64. 730  IF ABS(D)>=72.5 THEN 830
  65. 740  IF ABS(D)>=61 THEN 790
  66. 750  U=35+INT(H+.5)
  67. 760  IF U=59 THEN U=35
  68. 770  IF D<0 THEN U=U+381
  69. 780  GOTO 900
  70. 790  U=15+INT(H/1.2+.5)
  71. 800  IF U=35 THEN U=15
  72. 810  IF D<0 THEN U=U+425
  73. 820  GOTO 900
  74. 830  IF ABS(D)>=84.5 THEN 880
  75. 840  U=3+INT(H/2+1/2.4)
  76. 850  IF U=15 THEN U=3
  77. 860  IF D<0 THEN U=U+457
  78. 870  GOTO 900
  79. 880  U=1+INT(H/12)
  80. 890  IF D<0 THEN U=474-U
  81. 900  PRINT: PRINT
  82. 910  PRINT "SKY ATLAS 2000.0 --"
  83. 920  PRINT "  CHART  ";S
  84. 930  PRINT
  85. 940  PRINT "URANOMETRIA 2000.0 --"
  86. 950  PRINT "  CHART ";U;" IN ";V$
  87. 960  PRINT
  88. 970  END
  89.  
  90.  
  91.